op_ne_VS_CH Function

private elemental function op_ne_VS_CH(string_a, string_b) result(op_ne)

Compare (/=) a varying string and a character string

Arguments

Type IntentOptional Attributes Name
type(varying_string), intent(in) :: string_a
character(len=*), intent(in) :: string_b

Return Value logical


Source Code

  elemental function op_ne_VS_CH (string_a, string_b) result (op_ne)

    type(varying_string), intent(in) :: string_a
    character(LEN=*), intent(in)     :: string_b
    logical                          :: op_ne

    op_ne = char(string_a) /= string_b

! Finish

    return

  end function op_ne_VS_CH